home *** CD-ROM | disk | FTP | other *** search
/ Screen Scenes: Mickey & Crew / Screen Scenes - Mickey and Crew.iso / sdlhpmg / mcsetup.mst < prev    next >
Text File  |  1994-09-28  |  21KB  |  418 lines
  1. '**************************************************************************
  2. '* Mickey and Crew Setup Script
  3. '*
  4. '*
  5. '*
  6. '**************************************************************************
  7.  
  8. '$DEFINE DEBUG  ''Define for script development/debugging
  9.  
  10. '$INCLUDE 'setupapi.inc'
  11. '$INCLUDE 'msdetect.inc'
  12.  
  13. ''Dialog ID's
  14. CONST WELCOME       = 100
  15. CONST ASKQUIT       = 200
  16. CONST DESTPATH      = 300
  17. CONST EXITFAILURE   = 400
  18. CONST EXITQUIT      = 600
  19. CONST EXITSUCCESS   = 700
  20. CONST APPHELP       = 900
  21. CONST BADPATH       = 6400
  22.  
  23. ''Bitmap ID
  24. CONST LOGO = 1
  25.  
  26. GLOBAL DEST$        ''Default destination directory.
  27. GLOBAL OPTCUR$      ''Option selection from option dialog.
  28. GLOBAL WINPATH$            ''Windows directory
  29. GLOBAL GROUPNAME$        ''Group File Name
  30. GLOBAL EXENAME$            ''Control program name 
  31. GLOBAL ININAME$    
  32. GLOBAL APPNAME$
  33. GLOBAL SYSNAME$    
  34. GLOBAL CONTROL$
  35. GLOBAL CONTROLAPP$
  36. GLOBAL STARTGROUP$
  37.  
  38. DECLARE SUB Install
  39. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  40.  
  41.  
  42. INIT:
  43.     CUIDLL$     = "mscuistf.dll"            ''Custom user interface dll
  44.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  45.  
  46.     SetBitmap CUIDLL$, LOGO
  47.     SetTitle "Mickey & Crew Screen Scenes Setup"
  48.  
  49.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  50.     IF szInf$ = "" THEN
  51.         szInf$ = GetSymbolValue("STF_CWDDIR") + "setup.INF"
  52.     END IF
  53.     ReadInfFile szInf$
  54.  
  55.     OPTCUR$        = "1"
  56.     DEST$        = "C:\MCSS"
  57.     GROUPNAME$        = "Disney Software"
  58.     STARTGROUP$        = "StartUp"
  59.     EXENAME$        = "MCSS.EXE"
  60.     ININAME$        = "MCSS.INI"
  61.     APPNAME$        = "Mickey & Crew Screen Scenes"
  62.     CONTROL$        = "CONTROL.INI"
  63.     SYSNAME$        = "SYSTEM.INI"
  64.     CONTROLAPP$        = "ScreenSaver.Mickey & Crew"
  65.  
  66. '$IFDEF DEBUG
  67.     i% = SetSizeCheckMode(scmOnIgnore)    '' could use scmOff; def = scmOnFatal
  68.     WinDrive$ = MID$(GetWindowsDir, 1, 1)
  69.     IF IsDriveValid(WinDrive$) = 0 THEN
  70.         i% = DoMsgBox("Windows drive ('"+WinDrive$+"') is not a valid drive.", "DEBUG", MB_TASKMODAL+MB_ICONHAND+MB_OK)
  71.         GOTO QUIT
  72.     END IF
  73. '$ENDIF ''DEBUG
  74.  
  75.  
  76. WELCOME:
  77.     sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
  78.     IF sz$ = "CONTINUE" THEN
  79.         UIPop 1
  80.     ELSE
  81.         GOSUB ASKQUIT
  82.         GOTO WELCOME
  83.     END IF
  84.  
  85.  
  86. GETPATH:
  87.     SetSymbolValue "EditTextIn", DEST$
  88.     SetSymbolValue "EditFocus", "END"
  89. GETPATHL1:
  90.     sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", APPHELP, HELPPROC$)
  91.     DEST$ = GetSymbolValue("EditTextOut")
  92.  
  93.     IF sz$ = "CONTINUE" THEN
  94.         IF IsDirWritable(DEST$) = 0 THEN
  95.             GOSUB BADPATH
  96.             GOTO GETPATHL1
  97.         END IF
  98.         UIPop 1
  99.     ELSEIF sz$ = "REACTIVATE" THEN
  100.         GOTO GETPATHL1
  101.     ELSE
  102.         GOSUB ASKQUIT
  103.         GOTO GETPATH
  104.     END IF
  105.  
  106.  
  107.     Install
  108.  
  109.  
  110. QUIT:
  111.     ON ERROR GOTO ERRQUIT
  112.  
  113.     IF ERR = 0 THEN
  114.         dlg% = EXITSUCCESS
  115.     ELSEIF ERR = STFQUIT THEN
  116.         dlg% = EXITQUIT
  117.     ELSE
  118.         dlg% = EXITFAILURE
  119.     END IF
  120. QUITL1:
  121.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  122.     IF sz$ = "REACTIVATE" THEN
  123.         GOTO QUITL1
  124.     END IF
  125.     UIPop 1
  126.  
  127.     END
  128.  
  129. ERRQUIT:
  130.     i% = DoMsgBox("Setup sources were corrupted, please contact Customer Support!", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  131.     END
  132.  
  133.  
  134.  
  135. BADPATH:
  136.     sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
  137.     IF sz$ = "REACTIVATE" THEN
  138.         GOTO BADPATH
  139.     END IF
  140.     UIPop 1
  141.     RETURN
  142.  
  143.  
  144.  
  145. ASKQUIT:
  146.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  147.  
  148.     IF sz$ = "EXIT" THEN
  149.         UIPopAll
  150.         ERROR STFQUIT
  151.     ELSEIF sz$ = "REACTIVATE" THEN
  152.         GOTO ASKQUIT
  153.     ELSE
  154.         UIPop 1
  155.     END IF
  156.     RETURN
  157.  
  158.  
  159.  
  160. '**
  161. '** Purpose:
  162. '**     Builds the copy list and performs all installation operations.
  163. '** Arguments:
  164. '**     none.
  165. '** Returns:
  166. '**     none.
  167. '*************************************************************************
  168. SUB Install STATIC
  169.  
  170.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  171.     CreateDir DEST$, cmoNone
  172.  
  173. '    OpenLogFile MakePath(DEST$, "LOGFILE.OUT"), 0
  174. '    WriteToLogFile ""
  175. '    WriteToLogFile "  User chose as destination directory: '" + DEST$ + "'"
  176. '    WriteToLogFile "  User chose option: '" + OPTCUR$ + "'"
  177. '    WriteToLogFile ""
  178. '    WriteToLogFile "May have had to create the directory: " + DEST$
  179. '    WriteToLogFile ""
  180.  
  181.     '*
  182.     '* Copy file to Windows directory
  183.     '*
  184.     ClearCopyList
  185.     WINPATH$ = GetWindowsDir()
  186.     AddSectionFilesToCopyList "Win", SrcDir$, WINPATH$
  187.     CopyFilesInCopyList
  188.  
  189.     '*
  190.     '* Copy files to the LKSCENES directory
  191.     '*
  192.     AddSectionFilesToCopyList "Files", SrcDir$, DEST$
  193.     CopyFilesInCopyList
  194.     
  195.     ini$ = MakePath(WINPATH$, ININAME$)
  196.     CreateIniKeyValue ini$, "piclist",  "pic0", MakePath(DEST$,"001-001.JPG"), cmoOverwrite    
  197.     CreateIniKeyValue ini$, "piclist",  "pic1", MakePath(DEST$,"004-002.JPG"), cmoOverwrite    
  198.     CreateIniKeyValue ini$, "piclist",  "pic2", MakePath(DEST$,"007-005.JPG"), cmoOverwrite    
  199.     CreateIniKeyValue ini$, "piclist",  "pic3", MakePath(DEST$,"005-003.JPG"), cmoOverwrite    
  200.     CreateIniKeyValue ini$, "piclist",  "pic4", MakePath(DEST$,"083-006.JPG"), cmoOverwrite    
  201.     CreateIniKeyValue ini$, "piclist",  "pic5", MakePath(DEST$,"074-007.JPG"), cmoOverwrite    
  202.     CreateIniKeyValue ini$, "piclist",  "pic6", MakePath(DEST$,"082-008.JPG"), cmoOverwrite    
  203.     CreateIniKeyValue ini$, "piclist",  "pic7", MakePath(DEST$,"008-009.JPG"), cmoOverwrite    
  204.     CreateIniKeyValue ini$, "piclist",  "pic8", MakePath(DEST$,"009-010.JPG"), cmoOverwrite    
  205.     CreateIniKeyValue ini$, "piclist",  "pic9", MakePath(DEST$,"010-011.JPG"), cmoOverwrite    
  206.     CreateIniKeyValue ini$, "piclist", "pic10", MakePath(DEST$,"071-014.JPG"), cmoOverwrite    
  207.     CreateIniKeyValue ini$, "piclist", "pic11", MakePath(DEST$,"072-015.JPG"), cmoOverwrite    
  208.     CreateIniKeyValue ini$, "piclist", "pic12", MakePath(DEST$,"014-017.JPG"), cmoOverwrite    
  209.     CreateIniKeyValue ini$, "piclist", "pic13", MakePath(DEST$,"015-018.JPG"), cmoOverwrite    
  210.     CreateIniKeyValue ini$, "piclist", "pic14", MakePath(DEST$,"016-019.JPG"), cmoOverwrite    
  211.     CreateIniKeyValue ini$, "piclist", "pic15", MakePath(DEST$,"079-020.JPG"), cmoOverwrite    
  212.     CreateIniKeyValue ini$, "piclist", "pic16", MakePath(DEST$,"081-022.JPG"), cmoOverwrite    
  213.     CreateIniKeyValue ini$, "piclist", "pic17", MakePath(DEST$,"080-021.JPG"), cmoOverwrite    
  214.     CreateIniKeyValue ini$, "piclist", "pic18", MakePath(DEST$,"065-025.JPG"), cmoOverwrite    
  215.     CreateIniKeyValue ini$, "piclist", "pic19", MakePath(DEST$,"066-026.JPG"), cmoOverwrite    
  216.     CreateIniKeyValue ini$, "piclist", "pic20", MakePath(DEST$,"063-023.JPG"), cmoOverwrite    
  217.     CreateIniKeyValue ini$, "piclist", "pic21", MakePath(DEST$,"002-096.JPG"), cmoOverwrite    
  218.     CreateIniKeyValue ini$, "piclist", "pic22", MakePath(DEST$,"040-095.JPG"), cmoOverwrite    
  219.     CreateIniKeyValue ini$, "piclist", "pic23", MakePath(DEST$,"041-096.JPG"), cmoOverwrite    
  220.     CreateIniKeyValue ini$, "piclist", "pic24", MakePath(DEST$,"038-028.JPG"), cmoOverwrite    
  221.     CreateIniKeyValue ini$, "piclist", "pic25", MakePath(DEST$,"048-066.JPG"), cmoOverwrite    
  222.     CreateIniKeyValue ini$, "piclist", "pic26", MakePath(DEST$,"049-067.JPG"), cmoOverwrite    
  223.     CreateIniKeyValue ini$, "piclist", "pic27", MakePath(DEST$,"060-031.JPG"), cmoOverwrite    
  224.     CreateIniKeyValue ini$, "piclist", "pic28", MakePath(DEST$,"062-033.JPG"), cmoOverwrite    
  225.     CreateIniKeyValue ini$, "piclist", "pic29", MakePath(DEST$,"067-034.JPG"), cmoOverwrite    
  226.     CreateIniKeyValue ini$, "piclist", "pic30", MakePath(DEST$,"068-035.JPG"), cmoOverwrite    
  227.     CreateIniKeyValue ini$, "piclist", "pic31", MakePath(DEST$,"069-036.JPG"), cmoOverwrite    
  228.     CreateIniKeyValue ini$, "piclist", "pic32", MakePath(DEST$,"070-037.JPG"), cmoOverwrite    
  229.     CreateIniKeyValue ini$, "piclist", "pic33", MakePath(DEST$,"026-038.JPG"), cmoOverwrite    
  230.     CreateIniKeyValue ini$, "piclist", "pic34", MakePath(DEST$,"018-039.JPG"), cmoOverwrite    
  231.     CreateIniKeyValue ini$, "piclist", "pic35", MakePath(DEST$,"092-061.JPG"), cmoOverwrite    
  232.     CreateIniKeyValue ini$, "piclist", "pic36", MakePath(DEST$,"091-091.JPG"), cmoOverwrite    
  233.     CreateIniKeyValue ini$, "piclist", "pic37", MakePath(DEST$,"093-062.JPG"), cmoOverwrite    
  234.     CreateIniKeyValue ini$, "piclist", "pic38", MakePath(DEST$,"056-040.JPG"), cmoOverwrite    
  235.     CreateIniKeyValue ini$, "piclist", "pic39", MakePath(DEST$,"057-041.JPG"), cmoOverwrite    
  236.     CreateIniKeyValue ini$, "piclist", "pic40", MakePath(DEST$,"084-042.JPG"), cmoOverwrite    
  237.     CreateIniKeyValue ini$, "piclist", "pic41", MakePath(DEST$,"085-043.JPG"), cmoOverwrite    
  238.     CreateIniKeyValue ini$, "piclist", "pic42", MakePath(DEST$,"086-044.JPG"), cmoOverwrite    
  239.     CreateIniKeyValue ini$, "piclist", "pic43", MakePath(DEST$,"047-082.JPG"), cmoOverwrite    
  240.     CreateIniKeyValue ini$, "piclist", "pic44", MakePath(DEST$,"020-045.JPG"), cmoOverwrite    
  241.     CreateIniKeyValue ini$, "piclist", "pic45", MakePath(DEST$,"021-046.JPG"), cmoOverwrite    
  242.     CreateIniKeyValue ini$, "piclist", "pic46", MakePath(DEST$,"022-047.JPG"), cmoOverwrite    
  243.     CreateIniKeyValue ini$, "piclist", "pic47", MakePath(DEST$,"023-048.JPG"), cmoOverwrite    
  244.     CreateIniKeyValue ini$, "piclist", "pic48", MakePath(DEST$,"003-049.JPG"), cmoOverwrite    
  245.     CreateIniKeyValue ini$, "piclist", "pic49", MakePath(DEST$,"043-078.JPG"), cmoOverwrite    
  246.     CreateIniKeyValue ini$, "piclist", "pic50", MakePath(DEST$,"044-079.JPG"), cmoOverwrite    
  247.     CreateIniKeyValue ini$, "piclist", "pic51", MakePath(DEST$,"035-085.JPG"), cmoOverwrite    
  248.     CreateIniKeyValue ini$, "piclist", "pic52", MakePath(DEST$,"033-086.JPG"), cmoOverwrite    
  249.     CreateIniKeyValue ini$, "piclist", "pic53", MakePath(DEST$,"045-080.JPG"), cmoOverwrite    
  250.     CreateIniKeyValue ini$, "piclist", "pic54", MakePath(DEST$,"089-089.JPG"), cmoOverwrite    
  251.     CreateIniKeyValue ini$, "piclist", "pic55", MakePath(DEST$,"090-090.JPG"), cmoOverwrite    
  252.     CreateIniKeyValue ini$, "piclist", "pic56", MakePath(DEST$,"025-051.JPG"), cmoOverwrite    
  253.     CreateIniKeyValue ini$, "piclist", "pic57", MakePath(DEST$,"036-088.JPG"), cmoOverwrite    
  254.     CreateIniKeyValue ini$, "piclist", "pic58", MakePath(DEST$,"019-052.JPG"), cmoOverwrite    
  255.     CreateIniKeyValue ini$, "piclist", "pic59", MakePath(DEST$,"027-054.JPG"), cmoOverwrite    
  256.     CreateIniKeyValue ini$, "piclist", "pic60", MakePath(DEST$,"055-068.JPG"), cmoOverwrite    
  257.     CreateIniKeyValue ini$, "piclist", "pic61", MakePath(DEST$,"030-057.JPG"), cmoOverwrite    
  258.     CreateIniKeyValue ini$, "piclist", "pic62", MakePath(DEST$,"031-058.JPG"), cmoOverwrite    
  259.     CreateIniKeyValue ini$, "piclist", "pic63", MakePath(DEST$,"032-059.JPG"), cmoOverwrite    
  260.     CreateIniKeyValue ini$, "piclist", "pic64", MakePath(DEST$,"017-060.JPG"), cmoOverwrite    
  261.     CreateIniKeyValue ini$, "piclist", "pic65", MakePath(DEST$,"087-069.JPG"), cmoOverwrite    
  262.     CreateIniKeyValue ini$, "piclist", "pic66", MakePath(DEST$,"053-071.JPG"), cmoOverwrite    
  263.     CreateIniKeyValue ini$, "piclist", "pic67", MakePath(DEST$,"054-072.JPG"), cmoOverwrite    
  264.     CreateIniKeyValue ini$, "piclist", "pic68", MakePath(DEST$,"050-073.JPG"), cmoOverwrite    
  265.     CreateIniKeyValue ini$, "piclist", "pic69", MakePath(DEST$,"052-075.JPG"), cmoOverwrite    
  266.     CreateIniKeyValue ini$, "piclist", "pic70", MakePath(DEST$,"094-064.JPG"), cmoOverwrite    
  267.     CreateIniKeyValue ini$, "piclist", "pic71", MakePath(DEST$,"095-065.JPG"), cmoOverwrite    
  268.  
  269.     CreateIniKeyValue ini$, "walllist",  "pic0", MakePath(DEST$,"001-001.JPG"), cmoOverwrite    
  270.     CreateIniKeyValue ini$, "walllist",  "pic1", MakePath(DEST$,"004-002.JPG"), cmoOverwrite    
  271.     CreateIniKeyValue ini$, "walllist",  "pic2", MakePath(DEST$,"007-005.JPG"), cmoOverwrite    
  272.     CreateIniKeyValue ini$, "walllist",  "pic3", MakePath(DEST$,"005-003.JPG"), cmoOverwrite    
  273.     CreateIniKeyValue ini$, "walllist",  "pic4", MakePath(DEST$,"083-006.JPG"), cmoOverwrite    
  274.     CreateIniKeyValue ini$, "walllist",  "pic5", MakePath(DEST$,"074-007.JPG"), cmoOverwrite    
  275.     CreateIniKeyValue ini$, "walllist",  "pic6", MakePath(DEST$,"082-008.JPG"), cmoOverwrite    
  276.     CreateIniKeyValue ini$, "walllist",  "pic7", MakePath(DEST$,"008-009.JPG"), cmoOverwrite    
  277.     CreateIniKeyValue ini$, "walllist",  "pic8", MakePath(DEST$,"009-010.JPG"), cmoOverwrite    
  278.     CreateIniKeyValue ini$, "walllist",  "pic9", MakePath(DEST$,"010-011.JPG"), cmoOverwrite    
  279.     CreateIniKeyValue ini$, "walllist", "pic10", MakePath(DEST$,"071-014.JPG"), cmoOverwrite    
  280.     CreateIniKeyValue ini$, "walllist", "pic11", MakePath(DEST$,"072-015.JPG"), cmoOverwrite    
  281.     CreateIniKeyValue ini$, "walllist", "pic12", MakePath(DEST$,"014-017.JPG"), cmoOverwrite    
  282.     CreateIniKeyValue ini$, "walllist", "pic13", MakePath(DEST$,"015-018.JPG"), cmoOverwrite    
  283.     CreateIniKeyValue ini$, "walllist", "pic14", MakePath(DEST$,"016-019.JPG"), cmoOverwrite    
  284.     CreateIniKeyValue ini$, "walllist", "pic15", MakePath(DEST$,"079-020.JPG"), cmoOverwrite    
  285.     CreateIniKeyValue ini$, "walllist", "pic16", MakePath(DEST$,"081-022.JPG"), cmoOverwrite    
  286.     CreateIniKeyValue ini$, "walllist", "pic17", MakePath(DEST$,"080-021.JPG"), cmoOverwrite    
  287.     CreateIniKeyValue ini$, "walllist", "pic18", MakePath(DEST$,"065-025.JPG"), cmoOverwrite    
  288.     CreateIniKeyValue ini$, "walllist", "pic19", MakePath(DEST$,"066-026.JPG"), cmoOverwrite    
  289.     CreateIniKeyValue ini$, "walllist", "pic20", MakePath(DEST$,"063-023.JPG"), cmoOverwrite    
  290.     CreateIniKeyValue ini$, "walllist", "pic21", MakePath(DEST$,"002-096.JPG"), cmoOverwrite    
  291.     CreateIniKeyValue ini$, "walllist", "pic22", MakePath(DEST$,"040-095.JPG"), cmoOverwrite    
  292.     CreateIniKeyValue ini$, "walllist", "pic23", MakePath(DEST$,"041-096.JPG"), cmoOverwrite    
  293.     CreateIniKeyValue ini$, "walllist", "pic24", MakePath(DEST$,"038-028.JPG"), cmoOverwrite    
  294.     CreateIniKeyValue ini$, "walllist", "pic25", MakePath(DEST$,"048-066.JPG"), cmoOverwrite    
  295.     CreateIniKeyValue ini$, "walllist", "pic26", MakePath(DEST$,"049-067.JPG"), cmoOverwrite    
  296.     CreateIniKeyValue ini$, "walllist", "pic27", MakePath(DEST$,"060-031.JPG"), cmoOverwrite    
  297.     CreateIniKeyValue ini$, "walllist", "pic28", MakePath(DEST$,"062-033.JPG"), cmoOverwrite    
  298.     CreateIniKeyValue ini$, "walllist", "pic29", MakePath(DEST$,"067-034.JPG"), cmoOverwrite    
  299.     CreateIniKeyValue ini$, "walllist", "pic30", MakePath(DEST$,"068-035.JPG"), cmoOverwrite    
  300.     CreateIniKeyValue ini$, "walllist", "pic31", MakePath(DEST$,"069-036.JPG"), cmoOverwrite    
  301.     CreateIniKeyValue ini$, "walllist", "pic32", MakePath(DEST$,"070-037.JPG"), cmoOverwrite    
  302.     CreateIniKeyValue ini$, "walllist", "pic33", MakePath(DEST$,"026-038.JPG"), cmoOverwrite    
  303.     CreateIniKeyValue ini$, "walllist", "pic34", MakePath(DEST$,"018-039.JPG"), cmoOverwrite    
  304.     CreateIniKeyValue ini$, "walllist", "pic35", MakePath(DEST$,"092-061.JPG"), cmoOverwrite    
  305.     CreateIniKeyValue ini$, "walllist", "pic36", MakePath(DEST$,"091-091.JPG"), cmoOverwrite    
  306.     CreateIniKeyValue ini$, "walllist", "pic37", MakePath(DEST$,"093-062.JPG"), cmoOverwrite    
  307.     CreateIniKeyValue ini$, "walllist", "pic38", MakePath(DEST$,"056-040.JPG"), cmoOverwrite    
  308.     CreateIniKeyValue ini$, "walllist", "pic39", MakePath(DEST$,"057-041.JPG"), cmoOverwrite    
  309.     CreateIniKeyValue ini$, "walllist", "pic40", MakePath(DEST$,"084-042.JPG"), cmoOverwrite    
  310.     CreateIniKeyValue ini$, "walllist", "pic41", MakePath(DEST$,"085-043.JPG"), cmoOverwrite    
  311.     CreateIniKeyValue ini$, "walllist", "pic42", MakePath(DEST$,"086-044.JPG"), cmoOverwrite    
  312.     CreateIniKeyValue ini$, "walllist", "pic43", MakePath(DEST$,"047-082.JPG"), cmoOverwrite    
  313.     CreateIniKeyValue ini$, "walllist", "pic44", MakePath(DEST$,"020-045.JPG"), cmoOverwrite    
  314.     CreateIniKeyValue ini$, "walllist", "pic45", MakePath(DEST$,"021-046.JPG"), cmoOverwrite    
  315.     CreateIniKeyValue ini$, "walllist", "pic46", MakePath(DEST$,"022-047.JPG"), cmoOverwrite    
  316.     CreateIniKeyValue ini$, "walllist", "pic47", MakePath(DEST$,"023-048.JPG"), cmoOverwrite    
  317.     CreateIniKeyValue ini$, "walllist", "pic48", MakePath(DEST$,"003-049.JPG"), cmoOverwrite    
  318.     CreateIniKeyValue ini$, "walllist", "pic49", MakePath(DEST$,"043-078.JPG"), cmoOverwrite    
  319.     CreateIniKeyValue ini$, "walllist", "pic50", MakePath(DEST$,"044-079.JPG"), cmoOverwrite    
  320.     CreateIniKeyValue ini$, "walllist", "pic51", MakePath(DEST$,"035-085.JPG"), cmoOverwrite    
  321.     CreateIniKeyValue ini$, "walllist", "pic52", MakePath(DEST$,"033-086.JPG"), cmoOverwrite    
  322.     CreateIniKeyValue ini$, "walllist", "pic53", MakePath(DEST$,"045-080.JPG"), cmoOverwrite    
  323.     CreateIniKeyValue ini$, "walllist", "pic54", MakePath(DEST$,"089-089.JPG"), cmoOverwrite    
  324.     CreateIniKeyValue ini$, "walllist", "pic55", MakePath(DEST$,"090-090.JPG"), cmoOverwrite    
  325.     CreateIniKeyValue ini$, "walllist", "pic56", MakePath(DEST$,"025-051.JPG"), cmoOverwrite    
  326.     CreateIniKeyValue ini$, "walllist", "pic57", MakePath(DEST$,"036-088.JPG"), cmoOverwrite    
  327.     CreateIniKeyValue ini$, "walllist", "pic58", MakePath(DEST$,"019-052.JPG"), cmoOverwrite    
  328.     CreateIniKeyValue ini$, "walllist", "pic59", MakePath(DEST$,"027-054.JPG"), cmoOverwrite    
  329.     CreateIniKeyValue ini$, "walllist", "pic60", MakePath(DEST$,"055-068.JPG"), cmoOverwrite    
  330.     CreateIniKeyValue ini$, "walllist", "pic61", MakePath(DEST$,"030-057.JPG"), cmoOverwrite    
  331.     CreateIniKeyValue ini$, "walllist", "pic62", MakePath(DEST$,"031-058.JPG"), cmoOverwrite    
  332.     CreateIniKeyValue ini$, "walllist", "pic63", MakePath(DEST$,"032-059.JPG"), cmoOverwrite    
  333.     CreateIniKeyValue ini$, "walllist", "pic64", MakePath(DEST$,"017-060.JPG"), cmoOverwrite    
  334.     CreateIniKeyValue ini$, "walllist", "pic65", MakePath(DEST$,"087-069.JPG"), cmoOverwrite    
  335.     CreateIniKeyValue ini$, "walllist", "pic66", MakePath(DEST$,"053-071.JPG"), cmoOverwrite    
  336.     CreateIniKeyValue ini$, "walllist", "pic67", MakePath(DEST$,"054-072.JPG"), cmoOverwrite    
  337.     CreateIniKeyValue ini$, "walllist", "pic68", MakePath(DEST$,"050-073.JPG"), cmoOverwrite    
  338.     CreateIniKeyValue ini$, "walllist", "pic69", MakePath(DEST$,"052-075.JPG"), cmoOverwrite    
  339.     CreateIniKeyValue ini$, "walllist", "pic70", MakePath(DEST$,"094-064.JPG"), cmoOverwrite    
  340.     CreateIniKeyValue ini$, "walllist", "pic71", MakePath(DEST$,"095-065.JPG"), cmoOverwrite    
  341.  
  342. '*
  343. '* directory we will be using
  344. '* change wallpaper everyday
  345. '* haven't executed LKSCENES.EXE before
  346. '*
  347.     CreateIniKeyValue ini$, "usedir", "dir", DEST$, cmoOverwrite
  348.     CreateIniKeyValue ini$, "usedir", "Switch",    "1", cmoOverwrite
  349.     CreateIniKeyValue ini$, "usedir", "Wallpaper", "0", cmoOverwrite
  350.     CreateIniKeyValue ini$, "usedir", "FirstTime", "0", cmoOverwrite
  351.  
  352. '*
  353. '* WIN.INI CHANGES
  354. '* Add pattern
  355. '* 
  356.     CreateIniKeyValue "win.ini", "Desktop", "TileWallPaper", "0", cmoOverwrite
  357.  
  358. '*
  359. '* CONTROL.INI CHANGES
  360. '* All Black pattern
  361. '* Random wipe
  362. '* in 256 color mode
  363. '* 3 minutes tween frames
  364. '*
  365.     ini$ = MakePath(WINPATH$, CONTROL$)
  366.     CreateIniKeyValue ini$, CONTROLAPP$, "Wipe",  "4", cmoOverwrite
  367.     CreateIniKeyValue ini$, CONTROLAPP$, "24Bit", "0", cmoOverwrite
  368.     CreateIniKeyValue ini$, CONTROLAPP$, "Time",  "3", cmoOverwrite
  369.     CreateIniKeyValue ini$, CONTROLAPP$, "PlayR", "0", cmoOverwrite
  370.  
  371. '*
  372. '* SYSTEM.INI CHANGES
  373. '* Activate screen saver
  374. '*
  375.     ini$ = MakePath(WINPATH$, SYSNAME$)
  376.     scr$ = MakePath(WINPATH$, "mcss.scr")
  377.     CreateIniKeyValue ini$, "boot", "scrnsave.exe", scr$, cmoOverwrite
  378.  
  379. '*
  380. '* Add it to the Disney Software group 
  381. '*
  382.     CreateProgmanGroup GROUPNAME$, "", cmoNone
  383.     ShowProgmanGroup   GROUPNAME$, 1, cmoNone
  384.     CreateProgmanItem  GROUPNAME$, APPNAME$, MakePath(DEST$,EXENAME$), "", cmoOverwrite
  385.  
  386. '* Add it to the start up group
  387. '*
  388.     CreateProgmanItem  STARTGROUP$, APPNAME$, MakePath(DEST$,EXENAME$)+" wall", "", cmoOverwrite
  389.  
  390. '    CloseLogFile
  391.  
  392. END SUB
  393.  
  394.  
  395.  
  396. '**
  397. '** Purpose:
  398. '**     Appends a file name to the end of a directory path,
  399. '**     inserting a backslash character as needed.
  400. '** Arguments:
  401. '**     szDir$  - full directory path (with optional ending "\")
  402. '**     szFile$ - filename to append to directory
  403. '** Returns:
  404. '**     Resulting fully qualified path name.
  405. '*************************************************************************
  406. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  407.     IF szDir$ = "" THEN
  408.         MakePath = szFile$
  409.     ELSEIF szFile$ = "" THEN
  410.         MakePath = szDir$
  411.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  412.         MakePath = szDir$ + szFile$
  413.     ELSE
  414.         MakePath = szDir$ + "\" + szFile$
  415.     END IF
  416. END FUNCTION
  417.  
  418.